Column

Safety Map around Columbia University

content_main = paste(sep = "<br/>",
  "<b><a href='https://www.columbia.edu/'>Columbia University</a></b>",
  "2960 Broadway",
  "New York, NY 10027-6902"
)

content_cumc = paste(sep = "<br/>",
  "<b><a href='https://www.publichealth.columbia.edu/'>Columbia Mailman School for Public Health</a></b>",
  "West 168th Street, 722",
  "New York, NY 10032"
)

  cu_df %>% 
    leaflet() %>% 
    setView(lng = -73.94184,lat = 40.8394, zoom = 14) %>% 
    addTiles() %>% 
    addPopups(-73.96249, 40.80747, content_main, options = popupOptions(closeButton = FALSE)) %>% 
    addPopups(-73.9434, 40.84259, content_cumc, options = popupOptions(closeButton = FALSE)) %>% 
    addMarkers(~longitude, ~latitude, clusterOptions = markerClusterOptions())